CLEAR, 30000
SCREEN 2,640,200,3,2
WINDOW 2,,,0,2
WINDOW OUTPUT 2
PALETTE 0,1,1,1
PALETTE 1,1,1,1
PALETTE 2,0,0,0
x=150:y=40
COLOR 2
AREA (x,y)
AREA STEP (0,30)
AREA STEP (10,0)
AREA STEP (0,-20)
AREA STEP (20,20)
AREA STEP (20,0)
AREA STEP (0,-30)
AREA STEP (-10,0)
AREA STEP (0,20)
AREA STEP (-20,-20)
AREAFILL

AREA (x+65,y)
AREA STEP (0,30)
AREA STEP (50,0)
AREA STEP (0,-30)
AREAFILL
COLOR 1
AREA (x+80,y+5)
AREA STEP (0,20)
AREA STEP (20,0)
AREA STEP (0,-20)
AREAFILL

COLOR 2
AREA (x+130,y)
AREA STEP (0,5)
AREA STEP (22,0)
AREA STEP (0,25)
AREA STEP (16,0)
AREA STEP (0,-25)
AREA STEP (22,0)
AREA STEP (0,-5)
AREAFILL

AREA (x+205,y)
AREA STEP (0,30)
AREA STEP (15,0)
AREA STEP (0,-30)
AREAFILL

AREA (x+240,y)
AREA STEP (0,30)
AREA STEP (45,0)
AREA STEP (0,-5)
AREA STEP (-35,0)
AREA STEP (0,-20)
AREA STEP (35,0)
AREA STEP (0,-5)
AREAFILL

AREA (x+300,y)
AREA STEP (0,30)
AREA STEP (45,0)
AREA STEP (0,-5)
AREA STEP (-35,0)
AREA STEP (0,-7)
AREA STEP (15,0)
AREA STEP (0,-6)
AREA STEP (-15,0)
AREA STEP (0,-7)
AREA STEP (35,0)
AREA STEP (0,-5)
AREAFILL

LINE (120,25)-(525,35),2,bf
LINE (120,75)-(525,85),2,bf
LINE (120,25)-(140,85),2,bf
LINE (505,25)-(525,85),2,bf

LOCATE 15,18
PRINT "THIS PROGRAM IS FOR ENTERTAINMENT PURPOSES ONLY"
PRINT :PRINT TAB(19);"AND IS NOT TO BE USED ILLEGALLY FOR GAMBLING!!"

LOCATE 22,28
PRINT "Press any key to continue."



checkhere:
  zz$=INKEY$
  IF zz$=""THEN GOTO checkhere

CLS
CLEAR
PALETTE 0,0.3,0.3,0.3
PALETTE 1,1,1,1
PALETTE 3,0,0,0
PALETTE 2,0.7,0,0 
PALETTE 4,0.7,0,0.5
PALETTE 5,0,0.5,0
PALETTE 6,0.4,0.1,0
RANDOMIZE TIMER
DIM N(20)
DIM blot(15)
DIM which$(15)
FOR z=1 TO 15
READ which$(z)
NEXT
DATA first, second, third, fourth, fifth, sixth, seventh
DATA eighth, ninth, tenth, eleventh, twelveth, thirteenth
DATA fourteenth, fifteenth
LINE (0,0)-(640,200),2,bf
LINE (30,10)-(600,180),6,bf
COLOR 3
AREA (40,181)
AREA (601,181)
AREA (601,15)
AREA (610,15)
AREA (610,184)
AREA (40,184)
AREAFILL
COLOR 1
GOTO titlescreen

play:
  GOSUB title
  playagain:
  GOSUB drawboard
  IF zz$="S" THEN GOTO playsame
  GOSUB select
  playsame:
  GOSUB drawnums
  GOSUB checkwin
  GOSUB showwin
  turns=turns+1
  GOSUB fin

showwin:
  GOSUB ct
  GOSUB prize
  LOCATE 18,35
  PRINT spots;"- SPOT KENO
  LOCATE 20,14
  IF spots>10 THEN LOCATE 20,3
  PRINT "Your numbers are:";
  FOR j=1 TO spots:PRINT blot(j);:NEXT j
  LOCATE 22,20
  COLOR 1,5
  many$="numbers."
  IF matches=1 THEN many$="number."
  PRINT "You matched";matches;many$;"  You win ";prize$
  COLOR 1,0
  RETURN

prize:
  IF spots=1 AND matches=1 THEN prize$="$3":pz=pz+3:RETURN
  IF spots=2 AND matches=2 THEN prize$="$12":pz=pz+12:RETURN
  IF spots=3 AND matches=2 THEN prize$="$1":pz=pz+1:RETURN
  IF spots=3 AND matches=3 THEN prize$="$42":pz=pz+42:RETURN
  IF spots=4 AND matches=2 THEN prize$="$1":pz=pz+1:RETURN
  IF spots=4 AND matches=3 THEN prize$="$4":pz=pz+4:RETURN
  IF spots=4 AND matches=4 THEN prize$="$112":pz=pz+112:RETURN
  IF spots=5 AND matches=3 THEN prize$="$1":pz=pz+1:RETURN
  IF spots=5 AND matches=4 THEN prize$="$14":pz=pz+14:RETURN
  IF spots=5 AND matches=5 THEN prize$="$720":pz=pz+720:RETURN
  IF spots=6 AND matches=3 THEN prize$="$1":pz=pz+1:RETURN
  IF spots=6 AND matches=4 THEN prize$="$4":pz=pz+4:RETURN
  IF spots=6 AND matches=5 THEN prize$="$66":pz=pz+66:RETURN
  IF spots=6 AND matches=6 THEN prize$="$2,000":pz=pz+2000:RETURN
  IF spots=7 AND matches=4 THEN prize$="$1":pz=pz+1:RETURN
  IF spots=7 AND matches=5 THEN prize$="$20":pz=pz+20:RETURN
  IF spots=7 AND matches=6 THEN prize$="$380":pz=pz+380:RETURN
  IF spots=7 AND matches=7 THEN prize$="$8,000":pz=pz+8000:RETURN
  IF spots=8 AND matches=5 THEN prize$="$9":pz=pz+9:RETURN
  IF spots=8 AND matches=6 THEN prize$="$80":pz=pz+80:RETURN
  IF spots=8 AND matches=7 THEN prize$="$1,480":pz=pz+1480:RETURN
  IF spots=8 AND matches=8 THEN prize$="$25,000":pz=pz+25000:RETURN
  IF spots=9 AND matches=5 THEN prize$="$4":pz=pz+4:RETURN
  IF spots=9 AND matches=6 THEN prize$="$44":pz=pz+44:RETURN
  IF spots=9 AND matches=7 THEN prize$="$300":pz=pz+300:RETURN
  IF spots=9 AND matches=8 THEN prize$="$4,000":pz=pz+4000:RETURN
  IF spots=9 AND matches=9 THEN prize$="$25,000":pz=pz+25000:RETURN
  IF spots=10 AND matches=5 THEN prize$="$2":pz=pz+2:RETURN
  IF spots=10 AND matches=6 THEN prize$="$20":pz=pz+20:RETURN
  IF spots=10 AND matches=7 THEN prize$="$136":pz=pz+136:RETURN
  IF spots=10 AND matches=8 THEN prize$="$960":pz=pz+960:RETURN
  IF spots=10 AND matches=9 THEN prize$="$4,000":pz=pz+4000:RETURN
  IF spots=10 AND matches=10 THEN prize$="$25,000":pz=pz+25000:RETURN
  IF spots=11 AND matches=5 THEN prize$="$1":pz=pz+1:RETURN
  IF spots=11 AND matches=6 THEN prize$="$8":pz=pz+8:RETURN
  IF spots=11 AND matches=7 THEN prize$="$72":pz=pz+72:RETURN
  IF spots=11 AND matches=8 THEN prize$="$360":pz=pz+360:RETURN
  IF spots=11 AND matches=9 THEN prize$="$1,800":pz=pz+1800:RETURN
  IF spots=11 AND matches=10 THEN prize$="$12,000":pz=pz+12000:RETURN
  IF spots=11 AND matches=11 THEN prize$="$28,000":pz=pz+28000:RETURN
  IF spots=12 AND matches=6 THEN prize$="$5":pz=pz+5:RETURN
  IF spots=12 AND matches=7 THEN prize$="$32":pz=pz+32:RETURN
  IF spots=12 AND matches=8 THEN prize$="$240":pz=pz+240:RETURN
  IF spots=12 AND matches=9 THEN prize$="$600":pz=pz+600:RETURN
  IF spots=12 AND matches=10 THEN prize$="$1,480":pz=pz+1480:RETURN
  IF spots=12 AND matches=11 THEN prize$="$12,000":pz=pz+12000:RETURN
  IF spots=12 AND matches=12 THEN prize$="$36,000":pz=pz+36000:RETURN
  IF spots=13 AND matches=6 THEN prize$="$1":pz=pz+1:RETURN
  IF spots=13 AND matches=7 THEN prize$="$16":pz=pz+16:RETURN
  IF spots=13 AND matches=8 THEN prize$="$80":pz=pz+80:RETURN
  IF spots=13 AND matches=9 THEN prize$="$720":pz=pz+720:RETURN
  IF spots=13 AND matches=10 THEN prize$="$4,000":pz=pz+4000:RETURN
  IF spots=13 AND matches=11 THEN prize$="$8,000":pz=pz+8000:RETURN
  IF spots=13 AND matches=12 THEN prize$="$25,000":pz=pz+25000:RETURN
  IF spots=13 AND matches=13 THEN prize$="$36,000":pz=pz+13000:RETURN
  IF spots=14 AND matches=6 THEN prize$="$1":pz=pz+1:RETURN
  IF spots=14 AND matches=7 THEN prize$="$10":pz=pz+10:RETURN
  IF spots=14 AND matches=8 THEN prize$="$40":pz=pz+40:RETURN
  IF spots=14 AND matches=9 THEN prize$="$320":pz=pz+320:RETURN
  IF spots=14 AND matches=10 THEN prize$="$1,000":pz=pz+1000:RETURN
  IF spots=14 AND matches=11 THEN prize$="$3,200":pz=pz+3200:RETURN
  IF spots=14 AND matches=12 THEN prize$="$16,000":pz=pz+16000:RETURN
  IF spots=14 AND matches=13 THEN prize$="$25,000":pz=pz+25000:RETURN
  IF spots=14 AND matches=14 THEN prize$="$40,000":pz=pz+40000:RETURN
  IF spots=15 AND matches=7 THEN prize$="$8":pz=pz+8:RETURN
  IF spots=15 AND matches=8 THEN prize$="$28":pz=pz+28:RETURN
  IF spots=15 AND matches=9 THEN prize$="$132":pz=pz+132:RETURN
  IF spots=15 AND matches=10 THEN prize$="$300":pz=pz+300:RETURN
  IF spots=15 AND matches=11 THEN prize$="$2,600":pz=pz+2600:RETURN
  IF spots=15 AND matches=12 THEN prize$="$8,000":pz=pz+8000:RETURN
  IF spots=15 AND matches=13 THEN prize$="$25,000":pz=pz+25000:RETURN
  IF spots=15 AND matches=14 THEN prize$="$32,000":pz=pz+32000:RETURN
  IF spots=15 AND matches=15 THEN prize$="$40,000":pz=pz+40000:RETUR
  prize$="nothing!"
  RETURN
  
checkwin:
  matches=0
  FOR I=1 TO spots
  FOR j=1 TO 20
  IF N(j)=blot(I) THEN matches=matches+1:GOSUB colorwin  
  NEXT j
  NEXT I
  RETURN
  
select:
  spots=0
  COLOR 1,0
  LOCATE 22,14
  PRINT "Enter how many spots you want to play (1-15): ";
  getspot1:
  spot1$=INKEY$    
    IF spot1$="" THEN GOTO getspot1
    IF (ASC(spot1$))<49 OR (ASC(spot1$))>57 THEN spots=0:GOTO checkspots
    PRINT spot1$;
  getspot2:
    spot2$=INKEY$
    IF spot2$="" THEN GOTO getspot2
    IF (ASC(spot2$))=13 THEN spots=(ASC(spot1$))-48:GOTO keepon
    IF (ASC(spot1$))<>49 AND (ASC(spot2$))<>13 THEN spots=0:GOTO checkspots
    IF (ASC(spot2$))<48 OR (ASC(spot2$))>53 THEN spots=0:GOTO checkspots
    PRINT spot2$;
  getspot3:
    spot3$=INKEY$
    IF spot3$="" THEN GOTO getspot3
    IF (ASC(spot3$))<>13 THEN spots=0:GOTO checkspots  
    spots=(ASC(spot2$))-38
  keepon:
  FOR z=1 TO spots
  GOSUB ct
  LOCATE 18,35
  PRINT spots;"- SPOT KENO"
  LOCATE 20,14
  PRINT "Enter your ";which$(z);" number: ";
  getblot1:
  blot1$=INKEY$    
    IF blot1$="" THEN GOTO getblot1
    IF (ASC(blot1$))<49 OR (ASC(blot1$))>57 THEN blot(z)=0:GOTO blotrange
    PRINT blot1$;
  getblot2:
    blot2$=INKEY$
    IF blot2$="" THEN GOTO getblot2
    IF (ASC(blot2$))=13 THEN blot(z)=(ASC(blot1$))-48:GOTO ready
    IF (ASC(blot1$))>56 THEN GOTO blotrange
    IF (ASC(blot2$))<48 OR (ASC(blot2$))>57 THEN GOTO blotrange    
    IF (ASC(blot1$))=56 AND (ASC(blot2$))<>48 THEN GOTO blotrange    
    PRINT blot2$;
  getblot3:
    blot3$=INKEY$
    IF blot3$="" THEN GOTO getblot3
    IF (ASC(blot3$))<>13 THEN blots=0:GOTO blotrange  
    blot(z)=((ASC(blot1$))-48)*10+(ASC(blot2$))-48
  ready:
  GOSUB checkblot:IF repeat=1 THEN GOTO getblot1
  NEXT z 
  RETURN

checkblot:
  repeat=0
  IF z=1 THEN RETURN
  FOR I=z TO 2 STEP -1
  IF blot(z)=blot(I-1) THEN repeat=1:GOSUB blotagain 
  NEXT I
  RETURN    

blotrange:
  GOSUB ct
  LOCATE 20,14
  PRINT "That entry is out of playing range. Range is from 1 to 80."
  LOCATE 22,14
  PRINT  "Enter your ";which$(z);" number again: ";
  GOTO getblot1
  
blotagain:
  GOSUB ct
  LOCATE 20,14
  PRINT "You already chose that number before!"
  LOCATE 22,14
  PRINT  "Enter your ";which$(z);" number again: ";
  RETURN  

checkspots:
  IF spots<16 AND spots>0 THEN GOTO keepon
  GOSUB ct
  LOCATE 18,14
  PRINT "Number of spots played MUST be in the range of 1 to 15."  
  LOCATE 20,35
  PRINT "TRY AGAIN !!"
  GOTO select
  

drawboard: 
GOSUB ct 
LINE (123,4)-(522,131),3,bf
FOR b=4 TO 132 STEP 16
LINE (123,b)-(522,b),1
NEXT b
FOR a=123 TO 525 STEP 40
LINE (a,4)-(a,131),1
NEXT a
COLOR 1,3
z=0
FOR x=0 TO 79
c=l
l=2+(INT(x/10))*2
IF c><l THEN z=0
LOCATE l,17+z*5
PRINT x+1
z=z+1
NEXT x
RETURN

drawnums:
  GOSUB ct
  COLOR 1,0
  LOCATE 18,35
  PRINT spots;"- SPOT KENO"
  LOCATE 20,22
  COLOR 1,2
  PRINT "Amy is selecting 20 numbers at random."
  FOR t=1 TO 20
  N(t)=INT(RND*80)+1
  GOSUB checkn
  GOSUB lightboard
  NEXT t
  COLOR 1,0
  RETURN
   

fin:
  LOCATE 24,2:PRINT "'N'-Pick New Numbers  'S'-Play Same Numbers  'M'-Payoff Information  'Q'-Quit";
  checkkey:
  zz$=UCASE$(INKEY$)
  IF zz$="" THEN GOTO checkkey
  IF zz$="N" THEN GOTO playagain
  IF zz$="S" THEN GOTO playagain
  IF zz$="M" THEN GOTO payscreen
  IF zz$="Q" THEN GOTO quit
  GOTO checkkey
  
quit:  
  CLS
  WINDOW CLOSE 2
  SCREEN CLOSE 2
  LOCATE 4,30
  IF turns=1 THEN amt$="dollar."
  IF turns>1 THEN amt$="dollars."
  PRINT "You spent";turns;amt$
  IF pz=0 THEN winnings$="nothing...Sorry, better luck next time!"
  IF pz=0 THEN LOCATE 6,17:PRINT "You won ";winnings$
  IF pz>0 THEN LOCATE 6,30:PRINT "You won";pz;"dollars." 
  LOCATE 11,27
  PRINT "Thank You for playing KENO"
  LOCATE 15,28
  PRINT "A Program in AmigaBASIC"
  LOCATE 17,39:PRINT "by"
  LOCATE 19,33:PRINT "Kip H. Hammond"
  CLEAR
  END
  
checkn:
  FOR w=t TO 2 STEP -1
  IF N(t)=N(w-1) THEN N(t)=INT(RND*80)+1:GOTO checkn
  NEXT w
  RETURN 


lightboard:
  GOSUB findrow
  GOSUB findcol
  PAINT (x,y),2,1
  RETURN
  
  
  
findcol:
  r=N(t)-r
  IF r=1 THEN x=124:RETURN
  IF r=2 THEN x=164:RETURN
  IF r=3 THEN x=204:RETURN
  IF r=4 THEN x=244:RETURN
  IF r=5 THEN x=284:RETURN
  IF r=6 THEN x=324:RETURN
  IF r=7 THEN x=364:RETURN
  IF r=8 THEN x=404:RETURN
  IF r=9 THEN x=444:RETURN
  IF r=10 THEN x=484:RETURN
    
findcol2:
  r=blot(I)-r
  IF r=1 THEN x=124:RETURN
  IF r=2 THEN x=164:RETURN
  IF r=3 THEN x=204:RETURN
  IF r=4 THEN x=244:RETURN
  IF r=5 THEN x=284:RETURN
  IF r=6 THEN x=324:RETURN
  IF r=7 THEN x=364:RETURN
  IF r=8 THEN x=404:RETURN
  IF r=9 THEN x=444:RETURN
  IF r=10 THEN x=484:RETURN
  

findrow:  
  IF N(t)>70 THEN y=117:r=70:RETURN
  IF N(t)>60 THEN y=101:r=60:RETURN
  IF N(t)>50 THEN y=85:r=50:RETURN
  IF N(t)>40 THEN y=69:r=40:RETURN
  IF N(t)>30 THEN y=53:r=30:RETURN
  IF N(t)>20 THEN y=37:r=20:RETURN
  IF N(t)>10 THEN y=21:r=10:RETURN
  y=5:r=0:RETURN

colorwin:
  GOSUB findrow2
  GOSUB findcol2
  PAINT (x,y),5,1
  RETURN


findrow2:  
  IF blot(I)>70 THEN y=117:r=70:RETURN
  IF blot(I)>60 THEN y=101:r=60:RETURN
  IF blot(I)>50 THEN y=85:r=50:RETURN
  IF blot(I)>40 THEN y=69:r=40:RETURN
  IF blot(I)>30 THEN y=53:r=30:RETURN
  IF blot(I)>20 THEN y=37:r=20:RETURN
  IF blot(I)>10 THEN y=21:r=10:RETURN
  y=5:r=0:RETURN
    
  
title: 
CLS
x=10: y=5 
GOSUB K
y=40
GOSUB E
y=75
GOSUB N
y=110
GOSUB O
RETURN

titlescreen:
  x=165:y=30:GOSUB K
  x=247:GOSUB E
  x=315:GOSUB N
  x=400:GOSUB O
  COLOR 1,6
  LOCATE 10,39:PRINT "by"
  LOCATE 12,33:PRINT "KIP H. HAMMOND"
  
  LOCATE 15,8
         PRINT "This program is donated to the public domain by the author for all"
  PRINT TAB(8);"to enjoy. It may be freely distributed via electronic BBS, user"
  PRINT TAB(8);"group disk trading, or other FREE distribution. If you enjoy this"
  PRINT TAB(8);"program, contributions to the author will be graciously accepted."
  PRINT TAB(8);"Mail donations to 11280 Washington Place, Culver City, Ca. 90230."
  PRINT TAB(8);"              Have fun...and I hope you win big!!"
   
  
  LOCATE 22,8
  PRINT "Press 'I' for Instructions, 'M' for Money Payoffs, or 'P' to Play."
  COLOR 1,0
  ck2:
  zzz$=UCASE$(INKEY$)
  IF zzz$="I" THEN GOTO instructions
  IF zzz$="P" THEN GOTO play
  IF zzz$="M" THEN GOTO payscreen
  GOTO ck2

instructions:
  CLS
  LOCATE 2,31:PRINT "KENO INSTRUCTIONS"
  LOCATE 4,1
  PRINT "This game is played EXACTLY like KENO in the casinos of Las Vegas."
  PRINT :PRINT "You pay $1 to play. The playing board consists of 80 numbers, 1 TO 80!"
  PRINT "You are allowed to select from 1 TO 15 numbers to play."
  PRINT :PRINT "After you decide how many numbers you want to play, you then select that"
  PRINT "many different numbers from the board of 80." 
  PRINT :PRINT "The house, in this case Amy, will then select 20 numbers at random from the"
  PRINT "board of 80. These numbers will be highlighted in red."
  PRINT :PRINT "The object of the game is to have the numbers that you selected MATCH as"
  PRINT "many of the numbers selected at random as possible. Your matching numbers will"
  PRINT "be highlighted in green."
  PRINT :PRINT "The premise of this game is very simple, but the odds that you will match"
  PRINT "very many numbers are staggeringly against you! That is why the payoffs are"
  PRINT "very high. For example, if you match 10 of 10 numbers, you win $25,000 on a"
  PRINT "$1 bet."
  
  
  LOCATE 23,12:PRINT "Press 'M' for Money Payoff Information, or 'P' to Play.";
  ck3:
  yy$=UCASE$(INKEY$)
  IF yy$="" THEN GOTO ck3
  IF yy$="Q" THEN GOTO quit
  IF yy$="P" THEN GOTO play
  IF yy$="M" THEN GOTO payscreen
  GOTO ck3
  
K:
  LINE (x,y)-STEP(30,0) 
  LINE STEP(0,0)-STEP(-10,5) 
  LINE STEP(0,0)-STEP(0,8) 
  LINE STEP(0,0)-STEP(22,-9)
  LINE STEP(0,0)-STEP(-6,-4)
  LINE STEP(0,0)-STEP(30,0)
  LINE STEP(0,0)-STEP(-36,15)
  LINE STEP(0,0)-STEP(36,15)
  LINE STEP(0,0)-STEP(-30,0)
  LINE STEP(0,0)-STEP(6,-4)
  LINE STEP(0,0)-STEP(-22,-9)
  LINE STEP(0,0)-STEP(0,8)
  LINE STEP(0,0)-STEP(10,5)
  LINE STEP(0,0)-STEP(-30,0)
  LINE STEP(0,0)-STEP(10,-5)
  LINE STEP(0,0)-STEP(0,-20)
  LINE STEP(0,0)-STEP(-10,-5)
  PAINT STEP (10,2),4,1
  RETURN
  

E:
  LINE (x,y)-STEP(50,0)
  LINE STEP(0,0)-STEP(0,10)
  LINE STEP(0,0)-STEP(-10,-5)
  LINE STEP(0,0)-STEP(-20,0)  
  LINE STEP(0,0)-STEP(0,8)
  LINE STEP(0,0)-STEP(5,0)
  LINE STEP(0,0)-STEP(6,-3)
  LINE STEP(0,0)-STEP(0,10)
  LINE STEP(0,0)-STEP(-6,-3)
  LINE STEP(0,0)-STEP(-5,0)
  LINE STEP(0,0)-STEP(0,8)
  LINE STEP(0,0)-STEP(20,0)
  LINE STEP(0,0)-STEP(10,-5)
  LINE STEP(0,0)-STEP(0,10)
  LINE STEP(0,0)-STEP(-50,0)
  LINE STEP(0,0)-STEP(10,-5)
  LINE STEP(0,0)-STEP(0,-20)
  LINE STEP(0,0)-STEP(-10,-5)
  PAINT STEP (10,2),4,1
  RETURN
  

N:
  LINE (x,y)-STEP(30,0)
  LINE STEP(0,0)-STEP(20,25)
  LINE STEP(0,0)-STEP(0,-20)
  LINE STEP(0,0)-STEP(-10,-5)
  LINE STEP(0,0)-STEP(30,0)
  LINE STEP(0,0)-STEP(-10,5)
  LINE STEP(0,0)-STEP(0,20)
  LINE STEP(0,0)-STEP(10,5)
  LINE STEP(0,0)-STEP(-30,0)
  LINE STEP(0,0)-STEP(-20,-25)
  LINE STEP(0,0)-STEP(0,20)
  LINE STEP(0,0)-STEP(10,5)
  LINE STEP(0,0)-STEP(-30,0)
  LINE STEP(0,0)-STEP(10,-5)
  LINE STEP(0,0)-STEP(0,-20)
  LINE STEP(0,0)-STEP(-10,-5)
  PAINT STEP (10,2),4,1
  RETURN
  

O:
  LINE (x,y)-STEP(60,0)
  LINE STEP(0,0)-STEP(-10,5)
  LINE STEP(0,0)-STEP(0,20)
  LINE STEP(0,0)-STEP(10,5)
  LINE STEP(0,0)-STEP(-60,0)
  LINE STEP(0,0)-STEP(10,-5)
  LINE STEP(0,0)-STEP(0,-20)
  LINE STEP(0,0)-STEP(-10,-5)
  LINE STEP(20,5)-STEP(20,0)
  LINE STEP(0,0)-STEP(0,20)
  LINE STEP(0,0)-STEP(-20,0)
  LINE STEP(0,0)-STEP(0,-20)
  PAINT STEP(-2,0),4,1
RETURN

ct:
  LINE (80,135)-(630,200),0,bf
  LINE (1,145)-(80,200),0,bf
  RETURN
  
payscreen:
CLS
LOCATE 2,28:PRINT "KENO PAYOFF INFORMATION"
LOCATE 4,5
PRINT "Payoffs are the same as at the FOUR-QUEENS HOTEL in Las Vegas, Nevada."
LOCATE 6,3
PRINT "Press the letter of the game about which you would like payoff information."
LOCATE 10,10
PRINT "A.  for 1-SPOT, 2-SPOT, 3-SPOT, 4-SPOT, 5-SPOT, and 6-SPOT"
LOCATE 12,10
PRINT "B.  for 7-SPOT, 8-SPOT, 9-SPOT, and 10-SPOT"
LOCATE 14,10
PRINT "C.  for 11-SPOT, 12-SPOT, and 13-SPOT"
LOCATE 16,10
PRINT "D.  for 14-SPOT and 15-SPOT"
LOCATE 20,16
PRINT "Press 'A', 'B', 'C', or 'D' for Screen Listing." 
LOCATE 22,9
PRINT "Press 'P' for a hardcopy printout of Complete Payoff Schedule."

look:
  zz$=UCASE$(INKEY$)
  IF zz$="A" THEN GOTO pay1  
  IF zz$="B" THEN GOTO pay2
  IF zz$="C" THEN GOTO pay3
  IF zz$="D" THEN GOTO pay4
  IF zz$="P" THEN GOTO hardprint
  GOTO look

pay4:
CLS
LINE (200,5)-(425,17),2,bf
LINE (250,6)-(375,16),3,bf
LINE (40,20)-(270,115),3,bf
LINE (40,20)-(270,115),2,b
LINE (365,20)-(595,115),3,bf
LINE (365,20)-(595,115),2,b

COLOR 1,3
LOCATE 2,34:PRINT "KENO PAYOFFS"
LOCATE 4,8:PRINT "FOURTEEN-SPOT"
LOCATE 5,8:PRINT "------------------------"
LOCATE 6,8:PRINT "Catch 6           Win $1"
LOCATE 7,8:PRINT "      7              $10"
LOCATE 8,8:PRINT "      8              $40"
LOCATE 9,8:PRINT "      9             $320"
LOCATE 10,8:PRINT"     10           $1,000"
LOCATE 11,8:PRINT"     11           $3,200"
LOCATE 12,8:PRINT"     12          $16,000"
LOCATE 13,8:PRINT"     13          $25,000"
LOCATE 14,8:PRINT"     14          $40,000"
LOCATE 4,49:PRINT "FIFTEEN-SPOT"
LOCATE 5,49:PRINT "------------------------"
LOCATE 6,49:PRINT "Catch 7           Win $8"
LOCATE 7,49:PRINT "      8              $28"
LOCATE 8,49:PRINT "      9             $132"
LOCATE 9,49:PRINT "     10             $300"
LOCATE 10,49:PRINT"     11           $2,600"
LOCATE 11,49:PRINT"     12           $8,000"
LOCATE 12,49:PRINT"     13          $25,000"
LOCATE 13,49:PRINT"     14          $32,000"
LOCATE 14,49:PRINT"     15          $40,000"
COLOR 1,0

LOCATE 24,7
IF turns=0 THEN PRINT "               'P'-to Play    'M'-More Information";:GOTO lookpay4
PRINT "'N'-Pick New Numbers   'S'-Play Same Numbers   'M'-More Information";

lookpay4:
  zz$=UCASE$(INKEY$)
  IF zz$="N" OR zz$="S" OR zz$="P" THEN GOTO play  
  IF zz$="M" THEN GOTO pay1
  GOTO lookpay4


pay3:
CLS
LINE (200,5)-(425,17),2,bf
LINE (250,6)-(375,16),3,bf
LINE (40,20)-(270,97),3,bf
LINE (40,20)-(270,97),2,b
LINE (40,100)-(270,177),3,bf
LINE (40,100)-(270,177),2,b
LINE (365,20)-(595,107),3,bf
LINE (365,20)-(595,107),2,b

COLOR 1,3
LOCATE 2,34:PRINT "KENO PAYOFFS"
LOCATE 4,8:PRINT "ELEVEN-SPOT"
LOCATE 5,8:PRINT "------------------------"
LOCATE 6,8:PRINT "Catch 5           Win $1"
LOCATE 7,8:PRINT "      6               $8"
LOCATE 8,8:PRINT "      7              $72"
LOCATE 9,8:PRINT "      8             $360"
LOCATE 10,8:PRINT"      9           $1,800"
LOCATE 11,8:PRINT"     10          $12,000"
LOCATE 12,8:PRINT"     11          $28,000"
LOCATE 14,8:PRINT"TWELVE-SPOT"
LOCATE 15,8:PRINT"------------------------"
LOCATE 16,8:PRINT"Catch 6           Win $5"
LOCATE 17,8:PRINT"      7              $32"
LOCATE 18,8:PRINT"      8             $240"
LOCATE 19,8:PRINT"      9             $600"
LOCATE 20,8:PRINT"     10           $1,480"
LOCATE 21,8:PRINT"     11          $12,000"
LOCATE 22,8:PRINT"     12          $36,000"
LOCATE 4,49:PRINT "THIRTEEN-SPOT"
LOCATE 5,49:PRINT "------------------------"
LOCATE 6,49:PRINT "Catch 6           Win $1"
LOCATE 7,49:PRINT "      7              $16"
LOCATE 8,49:PRINT "      8              $80"
LOCATE 9,49:PRINT "      9             $720"
LOCATE 10,49:PRINT"     10           $4,000"
LOCATE 11,49:PRINT"     11           $8,000"
LOCATE 12,49:PRINT"     12          $25,000"
LOCATE 13,49:PRINT"     13          $36,000"

COLOR 1,0
LOCATE 24,7
IF turns=0 THEN PRINT "               'P'-to Play    'M'-More Information";:GOTO lookpay3
PRINT "'N'-Pick New Numbers   'S'-Play Same Numbers   'M'-More Information";

lookpay3:
  zz$=UCASE$(INKEY$)
  IF zz$="N" OR zz$="S" OR zz$="P" THEN GOTO play  
  IF zz$="M" THEN GOTO pay4
  GOTO lookpay3

pay2:
CLS
LINE (200,5)-(425,17),2,bf
LINE (250,6)-(375,16),3,bf
LINE (40,20)-(270,73),3,bf
LINE (40,20)-(270,73),2,b
LINE (40,76)-(270,130),3,bf
LINE (40,76)-(270,130),2,b
LINE (365,20)-(595,81),3,bf
LINE (365,20)-(595,81),2,b
LINE (365,84)-(595,154),3,bf
LINE (365,84)-(595,154),2,b

COLOR 1,3
LOCATE 2,34:PRINT "KENO PAYOFFS"
LOCATE 4,8:PRINT "SEVEN-SPOT"
LOCATE 5,8:PRINT "------------------------"
LOCATE 6,8:PRINT "Catch 4           Win $1"
LOCATE 7,8:PRINT "      5              $20"
LOCATE 8,8:PRINT "      6             $380"
LOCATE 9,8:PRINT "      7           $8,000"
LOCATE 11,8:PRINT"EIGHT-SPOT"
LOCATE 12,8:PRINT"------------------------"
LOCATE 13,8:PRINT"Catch 5           Win $9"
LOCATE 14,8:PRINT"      6              $80"
LOCATE 15,8:PRINT"      7           $1,480"
LOCATE 16,8:PRINT"      8          $25,000"
LOCATE 4,49:PRINT "NINE-SPOT"
LOCATE 5,49:PRINT "------------------------"
LOCATE 6,49:PRINT "Catch 5           Win $4"
LOCATE 7,49:PRINT "      6              $44"
LOCATE 8,49:PRINT "      7             $300"
LOCATE 9,49:PRINT "      8           $4,000"
LOCATE 10,49:PRINT"      9          $25,000"
LOCATE 12,49:PRINT"TEN-SPOT"
LOCATE 13,49:PRINT"------------------------"
LOCATE 14,49:PRINT"Catch 5           Win $2"
LOCATE 15,49:PRINT"      6              $20"
LOCATE 16,49:PRINT"      7             $136"
LOCATE 17,49:PRINT"      8             $960"
LOCATE 18,49:PRINT"      9           $4,000"
LOCATE 19,49:PRINT"     10          $25,000"

COLOR 1,0

LOCATE 24,7
IF turns=0 THEN PRINT "               'P'-to Play    'M'-More Information";:GOTO lookpay2
PRINT "'N'-Pick New Numbers   'S'-Play Same Numbers   'M'-More Information";

lookpay2:
  zz$=UCASE$(INKEY$)
  IF zz$="N" OR zz$="S" OR zz$="P" THEN GOTO play  
  IF zz$="M" THEN GOTO pay3
  GOTO lookpay2

pay1:
CLS
LINE (200,5)-(425,17),2,bf
LINE (250,6)-(375,16),3,bf
LINE (40,20)-(270,50),3,bf
LINE (40,20)-(270,50),2,b
LINE (40,53)-(270,82),3,bf
LINE (40,53)-(270,82),2,b
LINE (40,85)-(270,122),3,bf
LINE (40,85)-(270,122),2,b
LINE (40,125)-(270,170),3,bf
LINE (40,125)-(270,170),2,b
LINE (365,20)-(595,65),3,bf
LINE (365,20)-(595,65),2,b
LINE (365,68)-(595,123),3,bf
LINE (365,68)-(595,123),2,b

COLOR 1,3
LOCATE 2,34:PRINT "KENO PAYOFFS"
LOCATE 4,8:PRINT "ONE-SPOT"
LOCATE 5,8:PRINT "------------------------"
LOCATE 6,8:PRINT "Catch 1           Win $3"
LOCATE 8,8:PRINT "TWO-SPOT"
LOCATE 9,8:PRINT "------------------------"
LOCATE 10,8:PRINT "Catch 2         Win $12"

LOCATE 12,8:PRINT "THREE-SPOT"
LOCATE 13,8:PRINT "------------------------"
LOCATE 14,8:PRINT "Catch 2           Win $1"
LOCATE 15,8:PRINT "      3              $42"
LOCATE 17,8:PRINT "FOUR-SPOT"
LOCATE 18,8:PRINT "------------------------"
LOCATE 19,8:PRINT "Catch 2           Win $1"
LOCATE 20,8:PRINT "      3               $4"
LOCATE 21,8:PRINT "      4             $112"
LOCATE 4,49:PRINT "FIVE-SPOT"
LOCATE 5,49:PRINT "------------------------"
LOCATE 6,49:PRINT "Catch 3           Win $1"
LOCATE 7,49:PRINT "      4              $14"
LOCATE 8,49:PRINT "      5             $720"
LOCATE 10,49:PRINT"SIX-SPOT"
LOCATE 11,49:PRINT"------------------------"
LOCATE 12,49:PRINT"Catch 3           Win $1"
LOCATE 13,49:PRINT"      4               $4"
LOCATE 14,49:PRINT"      5              $66"
LOCATE 15,49:PRINT"      6           $2,000"

COLOR 1,0

LOCATE 24,7
IF turns=0 THEN PRINT "               'P'-to Play    'M'-More Information";:GOTO lookpay1
PRINT "'N'-Pick New Numbers   'S'-Play Same Numbers   'M'-More Information";

lookpay1:
  zz$=UCASE$(INKEY$)
  IF zz$="N" OR zz$="S" OR zz$="P" THEN GOTO play  
  IF zz$="M" THEN GOTO pay2
  GOTO lookpay1

hardprint:
CLS
LINE (100,28)-(500,42),2,bf
LINE (100,28)-(500,42),3,b
COLOR 1,2
LOCATE 5,20
PRINT "KENO PAYOFF SCHEDULE HARDCOPY PRINTOUT"
COLOR 1,0
LOCATE 9,20
PRINT "Make sure your printer is turned on and"
PRINT :PRINT TAB(20);"loaded with paper and ready"
PRINT :PRINT TAB(20);"to print, then press 'P' to"
PRINT :PRINT TAB(20);"print the KENO Payoff Schedule."
PRINT:PRINT TAB(12);"(You MUST have the Workbench Disk in a drive to printout.)"
PRINT :PRINT 
LINE (195,147)-(228,162),2,bf 
LINE (332,147)-(365,162),2,bf
LINE (195,147)-(228,162),3,b 
LINE (332,147)-(365,162),3,b

PRINT TAB(18);"Press:"
COLOR 1,2
LOCATE 20,26:PRINT "'P'"
LOCATE 20,43:PRINT "'A'"
COLOR 1,0
LOCATE 20,30:PRINT "to Print"
LOCATE 20,47:PRINT "to Abort Printout."

look2:
  zz$=UCASE$(INKEY$)
  IF zz$="P" THEN GOTO printout
  IF zz$="A" THEN GOTO payscreen
  GOTO look2
  
printout:
  CLS
  LINE (150,52)-(460,67),2,bf
  LINE (150,52)-(460,67),3,b
  COLOR 1,2
  LOCATE 8,23:PRINT "NOW PRINTING KENO PAYOFF SCHEDULE"
  COLOR 1,0
  LPRINT "KENO Payoff Schedule for a $1 Ticket"
  LPRINT:LPRINT
  LPRINT "One-Spot:       Catch 1     Pays    $3"
  LPRINT:LPRINT
  LPRINT "Two-Spot:       Catch 2     Pays   $12"
  LPRINT :LPRINT 
  LPRINT "Three-Spot:     Catch 2     Pays    $1"
  LPRINT "                      3            $42"
  LPRINT :LPRINT 
  LPRINT "Four-Spot:      Catch 2     Pays    $1"
  LPRINT "                      3             $4"
  LPRINT "                      4           $112"
  LPRINT:LPRINT 
  LPRINT "Five-Spot:      Catch 3     Pays    $1"
  LPRINT "                      4            $14"
  LPRINT "                      5           $720"
  LPRINT :LPRINT 
  LPRINT "Six-Spot:       Catch 3     Pays    $1"
  LPRINT "                      4             $4"
  LPRINT "                      5            $66"
  LPRINT "                      6         $2,000"
  LPRINT:LPRINT
  LPRINT "Seven-Spot:     Catch 4     Pays    $1"
  LPRINT "                      5            $20"
  LPRINT "                      6           $380"
  LPRINT "                      7         $8,000"
  LPRINT:LPRINT
  LPRINT "Eight-Spot:     Catch 5     Pays    $9"
  LPRINT "                      6            $80"
  LPRINT "                      7         $1,480"
  LPRINT "                      8        $25,000"
  LPRINT:LPRINT
  LPRINT "Nine-Spot:      Catch 5     Pays    $4"
  LPRINT "                      6            $44"
  LPRINT "                      7           $300"
  LPRINT "                      8         $4,000"
  LPRINT "                      9        $25,000"
  LPRINT:LPRINT
  LPRINT "Ten-Spot:       Catch 5     Pays    $2"
  LPRINT "                      6            $20"
  LPRINT "                      7           $136"
  LPRINT "                      8           $960"
  LPRINT "                      9         $4,000"
  LPRINT "                     10        $25,000"
  LPRINT:LPRINT
  LPRINT "Eleven-Spot:    Catch 5     Pays    $1"
  LPRINT "                      6             $8"
  LPRINT "                      7            $72"
  LPRINT "                      8           $360"
  LPRINT "                      9         $1,800"
  LPRINT "                     10        $12,000"
  LPRINT "                     11        $28,000"
  LPRINT:LPRINT
  LPRINT "Twelve-Spot:    Catch 6     Pays    $5"
  LPRINT "                      7            $32"
  LPRINT "                      8           $240"
  LPRINT "                      9           $600"
  LPRINT "                     10         $1,480"
  LPRINT "                     11        $12,000"
  LPRINT "                     12        $36,000"
  LPRINT:LPRINT
  LPRINT "Thirteen-Spot:  Catch 6     Pays     $1"
  LPRINT "                      7             $16"
  LPRINT "                      8             $80"
  LPRINT "                      9            $720"
  LPRINT "                     10          $4,000"
  LPRINT "                     11          $8,000"
  LPRINT "                     12         $25,000"
  LPRINT "                     13         $36,000"
  LPRINT:LPRINT
  LPRINT "Fourteen-Spot:  Catch 6     Pays     $1"
  LPRINT "                      7             $10"
  LPRINT "                      8             $40"
  LPRINT "                      9            $320"
  LPRINT "                     10          $1,000"
  LPRINT "                     11          $3,200"
  LPRINT "                     12         $16,000"
  LPRINT "                     13         $25,000"
  LPRINT "                     14         $40,000"
  LPRINT :LPRINT 
  LPRINT "Fifteen-Spot:   Catch 7     Pays     $8"
  LPRINT "                      8             $28"
  LPRINT "                      9            $132"
  LPRINT "                     10            $300"
  LPRINT "                     11          $2,600"
  LPRINT "                     12          $8,000"
  LPRINT "                     13         $25,000"
  LPRINT "                     14         $32,000"
  LPRINT "                     15         $40,000"
  
CLS                                        
GOTO payscreen